home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / automa_1 / frmconne.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-23  |  3KB  |  115 lines
  1. VERSION 5.00
  2. Begin VB.Form frmConnect 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Connect"
  5.    ClientHeight    =   2985
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4485
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    Picture         =   "frmConnect.frx":0000
  13.    ScaleHeight     =   2985
  14.    ScaleWidth      =   4485
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command3 
  18.       Caption         =   "Add Remote IP >>>>"
  19.       Default         =   -1  'True
  20.       Height          =   375
  21.       Left            =   240
  22.       TabIndex        =   6
  23.       Top             =   1680
  24.       Width           =   2055
  25.    End
  26.    Begin VB.CommandButton Command2 
  27.       Caption         =   "&Cancel"
  28.       Height          =   495
  29.       Left            =   1320
  30.       TabIndex        =   5
  31.       Top             =   2160
  32.       Width           =   975
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "&Connect"
  36.       Height          =   495
  37.       Left            =   240
  38.       TabIndex        =   4
  39.       Top             =   2160
  40.       Width           =   975
  41.    End
  42.    Begin VB.ListBox List1 
  43.       Appearance      =   0  'Flat
  44.       BackColor       =   &H00400000&
  45.       ForeColor       =   &H0000FFFF&
  46.       Height          =   1395
  47.       Left            =   2520
  48.       TabIndex        =   3
  49.       Top             =   1320
  50.       Width           =   1815
  51.    End
  52.    Begin VB.TextBox Text1 
  53.       Appearance      =   0  'Flat
  54.       BackColor       =   &H00400000&
  55.       BorderStyle     =   0  'None
  56.       ForeColor       =   &H0000FFFF&
  57.       Height          =   285
  58.       Left            =   240
  59.       TabIndex        =   0
  60.       Top             =   1320
  61.       Width           =   2055
  62.    End
  63.    Begin VB.Label Label2 
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Recent Connections:"
  66.       Height          =   255
  67.       Left            =   2640
  68.       TabIndex        =   2
  69.       Top             =   1080
  70.       Width           =   1575
  71.    End
  72.    Begin VB.Label Label1 
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "Remote IP:"
  75.       Height          =   375
  76.       Left            =   240
  77.       TabIndex        =   1
  78.       Top             =   1080
  79.       Width           =   1335
  80.    End
  81. Attribute VB_Name = "frmConnect"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Private Sub Command1_Click()
  87. frmWait.Show
  88. On Error Resume Next
  89. frmMain.win.RemoteHost = List1.Text
  90. frmMain.win.SendData "Connect"
  91. frmMain.rt.Text = ""
  92. Unload Me
  93. If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"
  94. End Sub
  95. Private Sub Command2_Click()
  96. Unload Me
  97. End Sub
  98. Private Sub Command3_Click()
  99. List1.AddItem Text1.Text
  100. List1.ListIndex = List1.ListCount - 1
  101. Text1.Text = ""
  102. End Sub
  103. Private Sub Form_Activate()
  104. Text1.Text = frmMain.win.LocalIP
  105. m = FileExists("c:\ppllist.lst")
  106. If m = True Then
  107. LoadListBox List1, "c:\ppllist.lst"
  108. SaveListBox List1, "c:\ppllist.lst"
  109. LoadListBox List1, "c:\ppllist.lst"
  110. End If
  111. End Sub
  112. Private Sub Form_Unload(Cancel As Integer)
  113. SaveListBox List1, "c:\ppllist.lst"
  114. End Sub
  115.